home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / N-O / News Stack™ 1.1.cpt / News Stack™ 1.1 / News Stack 1.1a2 / stack.txt < prev   
Text File  |  1987-09-04  |  8KB  |  301 lines
  1. -- stack: in.1a2
  2. -- format: 8 (HyperCard 1)
  3. -- flags: 0x0 (none)
  4. -- protect password hash: 0
  5. -- maximum user level: 5 (scripting)
  6. -- window: Rect(x1=0, y1=0, x2=0, y2=0)
  7. -- screen: Rect(x1=0, y1=0, x2=0, y2=0)
  8. -- card dimensions: w=0 h=0
  9. -- scroll: x=0 y=0
  10. -- background count: 3
  11. -- first background id: 2777
  12. -- card count: 3
  13. -- first card id: 5393
  14. -- list block id: 2149
  15. -- print block id: 3528
  16. -- font table block id: 0
  17. -- style table block id: 0
  18. -- free block count: 0
  19. -- free size: 0 bytes
  20. -- total size: 35968 bytes
  21. -- stack block size: 7168 bytes
  22. -- created by hypercard version: 0x00000000
  23. -- compacted by hypercard version: 0x00000000
  24. -- modified by hypercard version: 0x00000000
  25. -- opened by hypercard version: 0x00000000
  26. -- patterns[0]: 0x0000000000000000
  27. -- patterns[1]: 0x0000220000002200
  28. -- patterns[2]: 0x8800220088002200
  29. -- patterns[3]: 0xCC003300CC003300
  30. -- patterns[4]: 0xCC883322CC883322
  31. -- patterns[5]: 0xFF00FF00FF00FF00
  32. -- patterns[6]: 0xEECCBB33EECCBB33
  33. -- patterns[7]: 0xFFCCFF33FFCCFF33
  34. -- patterns[8]: 0xFFEEFFBBFFEEFFBB
  35. -- patterns[9]: 0xFFFFFFBBFFFFFFBB
  36. -- patterns[10]: 0x8010022001084004
  37. -- patterns[11]: 0xFFFFFFFFFFFFFFFF
  38. -- patterns[12]: 0x8822882288228822
  39. -- patterns[13]: 0x1122448811224488
  40. -- patterns[14]: 0xC4800C6843023026
  41. -- patterns[15]: 0xB130031BD8C00C8D
  42. -- patterns[16]: 0xAA00AA00AA00AA00
  43. -- patterns[17]: 0x8822552288225522
  44. -- patterns[18]: 0x8855225588552255
  45. -- patterns[19]: 0x77DD77DD77DD77DD
  46. -- patterns[20]: 0x8000000000000000
  47. -- patterns[21]: 0xAA55AA55AA55AA55
  48. -- patterns[22]: 0x5555555555555555
  49. -- patterns[23]: 0x8244394482010101
  50. -- patterns[24]: 0x8814224188412214
  51. -- patterns[25]: 0x8080413E080814E3
  52. -- patterns[26]: 0x22048C7422179810
  53. -- patterns[27]: 0xBE808808EB088880
  54. -- patterns[28]: 0x25C8328964244C92
  55. -- patterns[29]: 0xA29C41BE2AC914EB
  56. -- patterns[30]: 0x40A00000040A0000
  57. -- patterns[31]: 0x8040200002040800
  58. -- patterns[32]: 0xAA00800088008000
  59. -- patterns[33]: 0xFF80808080808080
  60. -- patterns[34]: 0x081C22C180010204
  61. -- patterns[35]: 0xFF808080FF080808
  62. -- patterns[36]: 0xF87422478F172271
  63. -- patterns[37]: 0xBF00BFBFB0B0B0B0
  64. -- patterns[38]: 0xFF7FBE5DA2418000
  65. -- patterns[39]: 0xFAF5FAF5A050A050
  66. -- checksum: 0x0
  67. ----- HyperTalk script -----
  68. on openStack
  69.   global clippingStr
  70.   global onWhat
  71.   global opusOn
  72.   global delphiOn
  73.   global maugOn
  74.   global fidoOn
  75.   global usenetOn
  76.   global genieOn
  77.   global otherOn
  78.   set lockscreen to true
  79.   if the number of this card = 1 then
  80.     clearHelp
  81.     set hilite of bkgnd button fido to true
  82.     set hilite of bkgnd button opus to false
  83.     set hilite of bkgnd button compuserve to false
  84.     set hilite of bkgnd button delphi to false
  85.     set hilite of bkgnd button genie to false
  86.     set hilite of bkgnd button picospan to false
  87.     set hilite of bkgnd button other to false
  88.     set visible of card field "no clone" to false
  89.   end if
  90.   put "n" into delphiOn
  91.   put "n" into opusOn
  92.   put "n" into maugOn
  93.   put "n" into usenetOn
  94.   put "n" into genieOn
  95.   put "n" into otherOn
  96.   put "y" into fidoOn
  97.   put "fido" into onWhat
  98.   hide menubar
  99.   set cursor to 4
  100.   show message box
  101.   domenu "Find..."
  102.   global whatOn
  103.   put "fido" into whatOn
  104.   go card 2
  105.   put field clipping into clippingStr
  106.   go card 1
  107.   set lockscreen to false
  108. end openStack
  109.  
  110. on closeStack
  111.   global clippingStr
  112.   set lockscreen to true
  113.   set cursor to 4
  114.   go card 2
  115.   put clippingStr into field clipping
  116.   go card 1
  117.   set hilite of bkgnd button fido to true
  118. end closeStack
  119.  
  120. on deleteIt
  121.   global delDate
  122.   put "n" into deleted
  123.   put field date into theDate
  124.   if (theDate = "*") then put empty into theDate
  125.   convert theDate to seconds
  126.   if (theDate <> 0) and ((theDate - delDate) < 0) then
  127.     put "Deleting card #" & field "card #" & " (" & the number of cards & ")" into message
  128.     domenu "delete card"
  129.     put "y" into deleted
  130.   end if
  131.   if (deleted = "n") then
  132.     put "Keeping card #" & field "card #" & " (" & the number of cards & ")" into message
  133.     go next card
  134.   end if
  135. end deleteIt
  136.  
  137. on deleteDate
  138.   global deleteMode
  139.   global delDate
  140.   put "y" into deleteMode
  141.   ask "Earliest date of articles to keep?"
  142.   if it is empty then exit deleteDate
  143.   set lockscreen to true
  144.   set cursor to 4
  145.   put it into delDate
  146.   convert delDate to seconds
  147.   go card 4
  148.   set lockscreen to true
  149.   set cursor to 4
  150.   repeat until (the number of this card) = (the number of cards)
  151.     deleteIt
  152.   end repeat
  153.   deleteIt
  154.   go card 1
  155.   put "n" into deleteMode
  156.   put "All Done" into message
  157.   beep
  158. end deleteDate
  159.  
  160. on doHelp
  161.   set lockscreen to true
  162.   set visible of card field "help 1" to true
  163.   set visible of card button "reading text" to true
  164.   set visible of card button "suggestions" to true
  165.   set visible of card button "housekeeping" to true
  166.   set visible of card button "clipping" to true
  167.   set visible of card button "version info" to true
  168.   set lockscreen to false
  169. end doHelp
  170.  
  171. on clearHelp
  172.   set lockscreen to true
  173.   set visible of card field "Help 3" to false
  174.   set visible of card button "reading text" to false
  175.   set visible of card field "Help 2" to false
  176.   set visible of card button "suggestions" to false
  177.   set visible of card field "help 4" to false
  178.   set visible of card button "housekeeping" to false
  179.   set visible of card button "clipping" to false
  180.   set visible of card field "help 5" to false
  181.   set visible of card button "version info" to false
  182.   set visible of card field "help 6" to false
  183.   set visible of card field "Help 1" to false
  184.   set lockscreen to false
  185. end clearHelp
  186.  
  187. on displayAdd
  188.   global addOn
  189.   global whatOn
  190.   put "y" into addOn
  191.   set lockscreen to true
  192.   set visible of bkgnd field "services" to true
  193.   set visible of bkgnd button fido to true
  194.   set visible of bkgnd button opus to true
  195.   set visible of bkgnd button compuserve to true
  196.   set visible of bkgnd button delphi to true
  197.   set visible of bkgnd button picospan to true
  198.   set visible of bkgnd button genie to true
  199.   set visible of bkgnd button other to true
  200.   if whatOn = "other" then
  201.     set visible of bkgnd field "other" to true
  202.   end if
  203.   set lockscreen to false
  204. end displayAdd
  205.  
  206. on addOff
  207.   global addOn
  208.   put "n" into addOn
  209.   set lockscreen to true
  210.   set visible of bkgnd button fido to false
  211.   set visible of bkgnd button opus to false
  212.   set visible of bkgnd button compuserve to false
  213.   set visible of bkgnd button delphi to false
  214.   set visible of bkgnd button picospan to false
  215.   set visible of bkgnd button genie to false
  216.   set visible of bkgnd button other to false
  217.   set visible of bkgnd field "other" to false
  218.   set visible of bkgnd field "services" to false
  219.   set lockscreen to false
  220. end addOff
  221.  
  222. on viewOff
  223. end viewOff
  224. on deleteOff
  225. end deleteOff
  226.  
  227. on opusOff
  228.   global opusOn
  229.   put "n" into opusOn
  230.   set hilite of bkgnd button opus to false
  231. end opusOff
  232.  
  233. on delphiOff
  234.   global delphiOn
  235.   put "n" into delphiOn
  236.   set hilite of bkgnd button delphi to false
  237. end delphiOff
  238.  
  239. on maugOff
  240.   global maugOn
  241.   put "n" into maugOn
  242.   set hilite of bkgnd button compuserve to false
  243. end maugOff
  244.  
  245. on fidoOff
  246.   global fidoOn
  247.   put "n" into fidoOn
  248.   set hilite of bkgnd button fido to false
  249. end fidoOff
  250.  
  251. on usenetOff
  252.   global usenetOn
  253.   put "n" into usenetOn
  254.   set hilite of bkgnd button picospan to false
  255. end usenetOff
  256.  
  257. on genieOff
  258.   global genieOn
  259.   put "n" into genieOn
  260.   set hilite of bkgnd button genie to false
  261. end genieOff
  262.  
  263. on otherOff
  264.   global otherOn
  265.   put "n" into otherOn
  266.   set hilite of bkgnd button other to false
  267.   set visible of bkgnd field other to false
  268. end otherOff
  269.  
  270. on cloneStack
  271.   -- This doesn't work yet.  Bail out with an error message‚Ķ
  272.   set visible of card field "no clone" to true
  273.   beep
  274.   exit cloneStack
  275.   put the name of this stack into oldStack
  276.   go card 1
  277.   domenu "New Stack..."
  278.   ask "Please re-enter the new stack name"
  279.   put it into newStack
  280.   domenu "copy card"
  281.   open stack newStack
  282.   domenu "paste card"
  283.   go card 1
  284.   domenu "delete card"
  285.   put "go " & oldStack into it
  286.   do it
  287.   go card 2
  288.   domenu "copy card"
  289.   open stack newStack
  290.   domenu "paste card"
  291.   put "go " & oldStack into it
  292.   do it
  293.   go card 3
  294.   domenu "copy card"
  295.   open stack newStack
  296.   domenu "paste card"
  297.   put "go " & oldStack into it
  298.   do it
  299. end cloneStack
  300.  
  301.